home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00001Series_352.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  837 b   |  30 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   puppetTransition(47, 1, 8)
  4.   put EMPTY into field "bemodnum"
  5.   put EMPTY into field "comodnum"
  6.   put EMPTY into field "whexmodnum"
  7.   put EMPTY into field "bearingoption"
  8.   if field "diamodnum" contains "10" then
  9.     play frame "7aphena"
  10.     abort()
  11.   end if
  12.   if field "diamodnum" contains "10" then
  13.     put "37" into field "whmodnum"
  14.     put EMPTY into field "bemodnum"
  15.     put EMPTY into field "comodnum"
  16.     put EMPTY into field "whexmodnum"
  17.     put EMPTY into field "bearingoption"
  18.     puppetTransition(47, 1, 8)
  19.     play frame "7bearinga"
  20.     abort()
  21.   end if
  22.   put "36" into field "whmodnum"
  23.   put EMPTY into field "bemodnum"
  24.   put EMPTY into field "comodnum"
  25.   put EMPTY into field "whexmodnum"
  26.   put EMPTY into field "bearingoption"
  27.   puppetTransition(47, 1, 8)
  28.   play frame "7bearinga"
  29. end
  30.